home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / menu0174.zip / R-PCMENU.MRG < prev    next >
Text File  |  1992-06-23  |  1KB  |  37 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\RBBS\SOURCE\STOCK\RBBS-PC.BAS to produce RBBS-PC.BAS
  3. * C:\RBBS\SOURCE\STOCK\RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 06-23-1992 02:01:46 ]------------
  5. * REPLACING old line(s) by new
  6. 335 ZExitToDoors = ZFalse
  7.     ZPrivateDoor = ZFalse
  8.     IF ZWasCL <> 1 THEN _
  9. * ------[ first line different ]------
  10.        LOCATE 22,56,1                                                ' DD062201/MENU0
  11.     WasD$ ="CONNECT" + _
  12.         STR$(ZBaudTest!) + _
  13.         "     "
  14.     GOSUB 1315
  15. '
  16. ' *****  DISPLAY WELCOME LINE  ****
  17. '
  18. * REPLACING old line(s) by new
  19. * ------[ first line different ]------
  20. 822 LOCATE 24,1,1                                                    ' DD062201/MENU0
  21.     CALL TakeOffHook
  22.     ZLocalUser = ZTrue
  23.     ZSnoop = ZTrue
  24.     ZBPS = -7
  25.     CALL CommInfo
  26.     CALL Muzak (2)
  27.     IF NOT ZEscapeInsecure THEN _
  28.        GOTO 345
  29.     ZActiveUserName$ = ZSecretName$
  30.     ZFirstName$ = ZSysopPswd1$
  31.     ZLastName$ = ZSysopPswd2$
  32.     ZUserLogonTime! = TIMER
  33.     ZTimeLoggedOn$ = TIME$
  34.     ZLinesPrinted = 0
  35.     ZSysop = ZTrue
  36.     GOTO 457
  37.